unit RVeicRastEvo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RLReport, RLParser, geral;

type
  TFormRVeicRastEvo = class(TForm)
    RLReport1: TRLReport;
    RLBand1: TRLBand;
    RLSystemInfo1: TRLSystemInfo;
    RLLabel1: TRLLabel;
    lblDatafim: TRLLabel;
    lblDataIni: TRLLabel;
    RLLabel4: TRLLabel;
    RLGroup1: TRLGroup;
    RLBand2: TRLBand;
    RLExpressionParser1: TRLExpressionParser;
    RLLabel5: TRLLabel;
    RLLabel2: TRLLabel;
    RLGroup2: TRLGroup;
    RLBand3: TRLBand;
    RLDBText1: TRLDBText;
    RLLabel3: TRLLabel;
    RLBand4: TRLBand;
    RLDBText2: TRLDBText;
    procedure RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean);
    procedure RLBand4BeforePrint(Sender: TObject; var PrintIt: Boolean);
    procedure RLLabel3BeforePrint(Sender: TObject; var Text: String;
      var PrintIt: Boolean);
    procedure RLDBText1BeforePrint(Sender: TObject; var Text: String;
      var PrintIt: Boolean);
    procedure RLBand5BeforePrint(Sender: TObject; var PrintIt: Boolean);
  private
    { Private declarations }
    Mes : Mat;
    Quant : Integer;
  public
    { Public declarations }
  end;

var
  FormRVeicRastEvo: TFormRVeicRastEvo;

implementation

uses DMR, DB;

{$R *.dfm}

procedure TFormRVeicRastEvo.RLReport1BeforePrint(Sender: TObject;
  var PrintIt: Boolean);
var X : integer;
  begin
    limpaMat(Mes,1,12);
    for X :=  1 to 12 do
        Mes[x,1] := FormatDateTime('MMMM',strtodate('01/'+IntToStr(X)+'/2006'))
end;

procedure TFormRVeicRastEvo.RLBand4BeforePrint(Sender: TObject;
  var PrintIt: Boolean);
begin
    Inc(Quant);    
    PrintIt := False;
end;

procedure TFormRVeicRastEvo.RLLabel3BeforePrint(Sender: TObject;
  var Text: String; var PrintIt: Boolean);
begin
    Text := INTTOSTR(QUANT);
end;

procedure TFormRVeicRastEvo.RLDBText1BeforePrint(Sender: TObject;
  var Text: String; var PrintIt: Boolean);
begin
//    FormatDateTime('MMMM',strtodate('01/'+Text+'/2006'))
end;

procedure TFormRVeicRastEvo.RLBand5BeforePrint(Sender: TObject;
  var PrintIt: Boolean);
begin
    Quant := 0;
end;

end.


